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About This Book 

This book contains simple games 
programs to play on a microcomputer. 
They are written for use on ZX8 1 , ZX 
Spectrum, BBC, VIC 20, 
TRS-80 and Pet and Apple micros, and 
many are short enough to fit into the 
ZXSl's IK of memory. 

Most micros use the language BASIC, 
but they all have their own variations or 
dialects. In this book, the main listing for 
each program works on the ZX8 1 and 
lines which need changing for the other 
computers are marked with symbols and 
printed underneath. The fact that the 
programs are written for several micros 
means that they do not make full use of 
each one's facilities. You could try 
finding ways of making the programs 
shorter and neater for your micro. 

For each game, there Eire ideas for 
changing and adding to the programs 
and towards the back of the book you 
will find tips and hints on writing games 
of your own. Also in the book is a 
conversion chart to help you adapt 
programs in magazines and other books 
for your micro and a summary of the 
BASIC terms used in this book. 

Typing in the programs 

Lines which need changing for 
computers other than ZX8 1 are marked 
with these symbols: 
A VIC and Pet 

* BBC and Acorn Electron 

■ TRS-80 

• Apple 
s ZX Spectrum 

Every time you see the symbol for the 
micro you are using, look below for the 
corresponding line number with the 
same symbol and type that in instead. 

VIC 20 versions of all except the graphics program should workon 
Pet computers. 




Points to remember 

1 Type the lines exactly as they are printed 
including all ptmctuation and spaces. 

2 Press RETURN, NEWLINE or ENTER 
key at the end of each program line. 

3 Check each line as you go. 

4 Make sure you don't miss out a line or 
confuse one with another. A piece of paper 
or a ruler is useful to mark your place in 
the listing. 

5 Look out for the symbols and make sure 
you use the correct lines for your 
computer. 

6 If you are using a ZX8 1 or ZX Spectrxun, 
remember not to type the program 
instructions letter by letter but to use the 
special key for each instruction instead. 

You may find it easier to get someone to 
read the program out to you while you 
type it in. Don't forget to explain that they 
must read every comma, fullstop, bracket 
and space and differentiate between letter 
"O" and zero, FOR and 4, and TO and 2. 

Debugging programs 



When you have typed 
in the program, check 
your manual to find out 
how to display it on the 
screen. (Usually you 
type LIST followed by 
the line numbers of the 
section you want t o 




Check you have 
typed everything 
correctly. It is easy to 
make mistakes, so 
expect to find some. Use 
your manual to find out 
how to make changes to 
the program once it is 
typed in. If in doubt, you 
can always type the line 
again. All the computers 
will replace an existing 
hne with a new one with 
the same number. 
Here is a checklist of common 
mistakes to look out for: 

1 Line missed out 

2 Line wrongly numbered 

3 The beginning of one line joined onto 
the end of another. 





4 Brackets, commas, colons, semi- 
colons, fullstops or spaces missed out, 
especially in long, compUcated lines. 
Watch for double brackets in particular. 

5 Wrong line used for your computer. 

6 Letter "O" confused with zero. 

7 Wrong numbers used, e.g. extra zeros 
included. 

Playing the games 

To start the game you must type RUN. In 
some games things happen very quickly, 
so make sure you have read the 
instructions and know what you are 
supposed to do. 

. It is quite Ukely that the program still 




has a mistake in it and either won't 
at all or the game won't work properly. 
Sometimes your computer will give you 
an error code which you can look up in 
the manual. This may help you find the 
mistake, though not always. List the 
program again and check it carefully 
against the book. 

When the game is over, the computer 
will usually say something like BREAK IN 
LINE 200. To play again, you have to type 
RUN. 

Experimenting with the games 

There are suggestions for changing and 
adding to the programs throughout the 
book, but don't be afraid to experiment 
with changes of your own. You can't 
damage the computer and you can 
always change back to the original if the 
changes don't work. 

You will probably find you want to 
adjust the speed of some games, * 
especially after you have played them a 
number of times. You will find out which 
hne to cheuige on each program page. 

Wherever you see 
PRINT, you can 
change the message in 
quotes that follows it to' 
whatever you like. 
Also, unless you have 
ZX8 1 with only IK, you 
can add extra 
messages. 

Type a line number (say 105 if you want 
to add a message between lines 100 and 
1 10), then type PRINT, then your 
message inside quotes. 

If your computer can make colours 
and sounds, you could use your manual 
to find out how they work and try adding 
them to the games in this book. 





*See page 37 for a special note for BBC and Spectrum users. 



Starship Takeoff 

You are a starship captain. You have crashed your ship on a 
strange planet and must take off again quickly in the alien 
ship you have captured. The ship's computer tells you the 
gravity on the planet. You must guess the force required for a 
successful take off. If you guess too low, the ship will not lift 

off the ground. If you guess too high, the ship's fail-safe 
mechanism comes into operation to prevent it being burnt 
up. If you ar'e still on the planet after ten tries, the aliens will 

capture you. 



10 CLS — 
20 PRINT 

★■A»30 LET 6' 
★■A«40 LET 




How the program works 

• Cleaxs the screen. 



II 



STARSHIP TAKE-OFF" 



INT(RND*20+ 
INT (RND«40+ 




Computer selects two 
numbers - one between 1 and 
20 to be put in G, the other 
between 1 and 40 to be pat in W. 



50 LET R=G*W 



60 PRINT "GRAVITY= ";B 



70 PRINT 

SO FOR C= 



"TYPE IN FORCE" 
1 TO 10 



90 INPUT F 




100 IF F>R THEN PRINT "TOO 
110 IF F<R THEN PRINT "TOO 
120 IF F=R THEN GOTO 190 



HIGH" 
LOW": 




Multiplies the nmnber in G 
by number in W. Puts result 
inR. 

Prints GRAVITY and nomber 
inG. 

Asks yon for a nnmber. 

This begins a loop which tells 
the computer to repeat the next 
section 10 times, to give you 
10 goes. 

Stores yonr number in F. 

Compares number in F with 
number in R and prints 
appropriate message or 
jumi» to 190. 



130 IF COlO THEN PRINT 



II 



TRY A6A I N " Prints if you've had less 

than 1 goes without a correct 
answer. 



140 

150 
160 
170 
180 
190 



NEXT C 

PRINT 
PRINT 
PRINT 
STOP 
PRINT 



"YOU FAILED -" 

"THE ALIENS GOT YOU 



ti 



"GOOD TAKE OFF" 

The above listiiig will work on a ZX81 . For 
other computers, make the changes below. 
•10 HOHE 

PRINT CHR*(147) 
LET G=INT(RND<1) «20) 
LET G=INT(RND(0) $20) 
LET W=INT(RND(1)«40) 
LET W=INT(RND<0) »40> 



▲ 10 
^A«30 

■ 30 
^▲•40 

■ 40 



End of loop. Goes back t o 80 
for another turn. 

Prints after 1 unsnccessfol 
goes. 



On all but ZX81 and 
Spectrum, you can 
replace STOP with 
END. (Notice what 
happens when yon 

do.) 



How to make the game harder 

Yon can change the pzogiram to give 
you less than 1 goes. Do this by 
altering the last number in line 80 and 
the number in line 130. (They must be 
the same.) 




Puzzle corner 



You could change the range of possible 
forces. See if you can work out how. 



5ee page 2 for meaning of •▲■^ 



Intergalactic Games 

There is fierce competition among the 
world's TV companies for exclusive 
coverage of the First Intergalactic Games. 
Everything depends on which company 
wins the race to put a satellite into orbit at 
the right height. 

You are the Engineer in charge of the 
launch for New Century TV. The crucial 
decisions about the angle and speed of the 
launching rocket rests on yourshoulders. 
Can you do it? 



1 1 

'O 

"i 
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How the program works 



10 PRINT "INTERBALftCTIC GAMES" "H Chooses the height to which 

20 LET H=INT (RND* 100+1 > you must launch your 

30 PRINT "YOU MUST LAUNCH A SATELLITE"! satellite, puts it in Hand 

40 PRINT "TO A HEIGHT OF "jH J prints it. 



50 FOR B=l TO 8 



60 PRINT "ENTER ANGLE <O-70) " 
70 INPUT A 




80 PRINT 
90 INPUT 



"ENTER SPEED (0-4OO00) 
V 




100 LET A=A-ATN(H/3) *180/3- 14159 



110 LET V=V-3000*SQR(H+1/H) 



120 IF ABS(A)<2 AND AESCVXIOO THEN GOTO 



130 
140 
150 
160 

170 

ISO 
190 

200 
210 
220 
230 



IF 
IF 
IF 
IF 



A<-2 THEN PRINT "TOO SHALLOW" 
A>2 THEN PRINT "TOO STEEP" 
V<-100 THEN PRINT "TOO SLOW" 
V>100 THEN PRINT "TOO FAST" 



Beginning of loop to give you 
8 goes. 

Asks you for an angle and 
puts it in A. 

Asks you for a speed and puts 
itinV. 

Uses H to calculate what the 
angle should be and 
subtracts this from your 
guess to find out how close 
you were. 

' Works out what the speed 
should be and subtracte it 
from your guess. 

210 Checks if 

you were close enough to 
win and if so jumps to 2 10. 

Prints an appropriate 
comment to help you with 
your next go. 



NEXT 

PRINT 
PRINT 

STOP 
PRINT 

PRINT 
STOP 




"YOU'VE FAILED' 
"YOU'RE FIRED" 



"YOU'VE DONE IT" 
"NCTV WINS-THANKS TO YOU" 



Goes back for another go. 

Prints after 8 unsuccessful 
goes. 



Prints if you win. 



The above listing will work on a ZX8 1 . For 
other computers, make the changes below. 

■20 LET H=INT(RND(0)*100+1) 
20 LET H=INT<RND(1) *100+1) 



7 




Adding to the program 

These three extra lines will make the 
computer give you bonus points 
depending on how quickly you make a 
successful launch. 



2ZZ LET B=INT(1000/G) 
225 PRINT "YOU'VE EARNED A" 
227 PRINT "BONUS OF ";B;" CREDITS" 




Puzzle corner 



Can you change the program so that, if 
you win, it automatically goes back for 
another game, adding the bonus you've 
already earned to any new bonus? 
(Hint: you need to change two lines 

and add one.) 

See how long you can play before 
NCT V fires you. 



Evil Alien 



Somewhere beneath you, in deepest, blackest space, 
lurks Elron, the Evil Alien. You have managed 
to deactivate all but his short-range weapons 
but he can still make his ship invisible. 
You know he is somewhere within the 
three-dimensional grid you can see 

on your ship's screen (see 
below), but where? 
You have four space bombs. 
Each one can be exploded at 

a position in the grid 
speciiied by three numbers 
between and 9, which 
your computer wiU ask 
you for. Can you blast 
the Evil Elron out 
of space before he 
creeps up and 
captures you? 









k m 



k « 



/ 



I 



o 
2 



(West) 



n 



(East) 




I 



5 CLS 

10 PRINT "EVIL ALIEN" 

20 LET S=10 




How the program works 




30 LET B=4 

1^HA«40 LET X=INT (RND«S)' 
★■A«50 LET Y=INT(RND*S) 
-^■▲•60 LET D=INT(RND«S) 



70 FOR I-l TO 6 



80 PRINT "X POSITION (O TO 9)?" 
B5 INPUT XI 

90 PRINT "Y POSITION <0 TO 9)?" 
100 INPUT Yl 

110 PRINT "DISTANCE <0 TO 9>?" 
120 INPUT Dl 




Sets the size of the grid. 
Sets the number of goes. 

Elron's position is fixed by 
these 3 lines, which select 3 
numbers between and the 
size of the grid. 

Start of a loop which tells the 
computer to repeat the next 
1 5 lines G times. 



This section asks you for 
your 3 numbers and stores 
them in XI, YI andDl. 



130 IF X=Xi AND Y=Y1 AND D=D1 THEN BOTO 3O0 



140 
150 
160 
170 
180 
190 
200 



PRINT "SHOT WAS 



II 



IF Y1>Y 
IF YKY 
IF X1>X 
IF XKX 
PRINT 
IF D1>D 



THEN 
THEN 
THEN 
THEN 



PRINT 
PRINT 
PRINT 
PRINT 



"NORTH" ; 
"SOUTH"; 



ti 



" WEST " ; 



THEN PRINT "TOO FAR" 



210 IF DKD THEN PRINT "NOT FAR ENOU6H 



ti 



Checks if 
yon were 
right and jumps to 
300 if you were. 

Your guesses are 
compared withElron's 
position and a report 
printed. 




220 NEXT I 



YOUR T I ME HAS RUN OUT ! ! " 



230 PRINT 
240 STOP 

300 PRINT "»BOOM« YOU BOT HI 

310 STOP 
The above listing will work on a ZX8 1 . For 
other computers, make the changes below. 

•5 HOME 

A5 PRINT CHR*(147> 

X=INT<RND<1) »S> 
X=INT(RND<0) »S) 
Y=INT<RND(1) »S) 
Y=INT(RND(0) »S) 
D=INT(RND<1> «S> 
D=INT<RND(0) »S) 



M 



I •• 



End of loop. Returns for 
another go. 

Prints if youVe used up all 
your goes. 

Prints if you guessed right. 



40 

■ 40 
★a 950 

■ 50 
^A«60 

■ 60 



LET 



How to make the game harder 

This program has been written so that 
you can easily change the difficulty by 
changing the size of the grid. To do this , 
put a different value for S in line 20. 

If you increase the grid size you will 
need more space bombs to give you a 
fair chance of blasting Elron. Do this by 
changing the value of G in line 30. 



Puzzle corner 

Can you work out how to change the 
program so that the computer asks you 
for a difficulty number which it can put 
into S instead of S being fixed? (Tip: limit 
the value of S to between 6 and 30 and 
use INT(S/3) for the value of G in line 
30.) 







See page 2 for meaning of 

4M K 




Beat the Bug Eyes 



You're trapped! Everywhere you turn you catch a glimpse of the steely 

cold light of a space bug's eyes before it slithers down behind a rock 
again. Slowly the bugs edge towards you, hemming you in, waiting for a 
chance to bind you in their sticky web-like extrusions. Luckily you have 

your proton blaster with you. 
The bug eyes pop up in four different places on your screen and these 
correspond to keys 1 to 4. Press the correct key while the bug's eyes are 
on the screen and you will blast it. There are 1 bugs in all - the more you 

blast, the greater your chance of escape. 

How the program works 



10 
20 

30 



A«40 CLS 



PRINT "BUG EYES" 

LET S=0 

1=1 TO 10 — 



Sets the score to zero for start 
of game. 

Begiiuiing of loop which 
gives you 10 turns. 



★■A«50 FOR 1=1 TO INT(RND*30 
60 NEXT I 




★■A«70 LET R=INT(RND*4+1 > 



★■A#80 GOSUB 210+30»R 



GOSUB makes the computer 
branch out of the main 
program to a "suh-routine" 
(see next page). RETURN at 
the end of the sub-routine 
sends it back to the main 
program again. 



screen. 

Delay loop which lasts a 
varying length of time, 
depending on the value of 
RND. 

Chooses a number from 1 to 4 
and puts it in R. 

■ Jumps to one of fotir sub- 
routines depending on the 
value of R. This gets two 
numbers which correspond 
to a position on the screen— 
"A" spaces across and "D" 
lines down - and then jumps 
again to 350 to move the 
cursor to this position. 



00" 



90 PRINT 

1 100 FOR 1 = 1 TO 



20 



110 LET R*=INKEY* 



120 
130 
140 

150 



IF R*<>"" 
NEXT I 

IF VAL<"0"+R*>< 
LET S=S+1 



THEN GOTO 140 



R THEN GOTO 210 



Priiits the "bug eyes" at this 
position. 

Loops round to see if you aie 
-pressing a key- If you are, 
computer jumps to 140 uid 
checks if it is the right one. 



Increases score by 1. 







1" 




160 CLS 





170 
180 

200 

210 

220 

230 
240 
250 
260 
270 
2 SO 
290 
3O0 
310 
320 
330 
340 
350 
360 
370 
380 
390 



GOSUB 3 
PRINT 



350"1 
II ^ II r 



FOR J=l 
NEXT J 



TO 40 




NEXT T 



PRINT "YOU BLASTED 
STOP 



If 



TO 




LET D=5 
LET A=l 
GOTO 350 
LET D=l 
LET A=9 
GOTO 350 
LET D=5 
LET A=1B 
GOTO 350 
LET D=10 
LET A=7 
FOR 1=1 
PRINT 
NEXT I 

PRINT TAB (A) ; 
RETURN — 

The above listing will work on a ZX8 1 . For 
other compaters, make the changes below. 

40, 160 HOME 
40,160 PRINT CHR»(147) 
50 FOR 1=1 TO INT(RND(0> *3OO+200) 
50 FOR 1=1 TO INT(RND(l)«300+200> 
70 LET R=INT(RNDCO>»4+l) 
70 LET R=INT(RND(1) »4+l> 
SO ON R 60SUB 240,270,300,330 
100 FOR 1=1 TO 150 
I05 R*="" 
no BET R* 
110 R*=INKEY*<1) 

110 IF PEEK (-16384) > 127 THEN GET R* 
190 FOR J=l TO 300 



ifUA 




Clears screen 

Sends coisor back to the 
same position and prints a 
star. 

Delay loop to make star stay 
on screen long enough for 
you to see it. 

' Goes back for next turn. 



; S ; " / 1 BUGS *' Prints score. 




Sub-routines. 






Howto changethe 
speed 

%ou can speed the game 
up by changing the last 
number in line 100 to a 
lower one. 

Howto use more of 
the screen 

This program was written 
to fit on the smallest 
screen width (which is the 
VIC 20). For the other 
computers, you can 
increase the values of A in 
lines 250, 280, 310 and 340. 
Check your manual to find 
the maximum width your 
computer can use. 




Puzzle corner 

Can you change the program to make 
the bugs appear in more than four 
places on the screen? Can you add more 
bugs too? 



See page 2 for m eaning of • a ■ * 



Moonlander 

Tou are at the controls of a lunar module which is taking a small team of astronauts 
down to the moon's surface. In order to land safely you must slow down your descent 
but that takes fuel and you have only a limited supply. 

Tour computer will tell yon your starting height, speed and fuel supply and ask 
how much fuel you wish to bum. It will then work out your new height and speed. A 
bum of 5 will keep your speed constant. A higher number will reduce it. Try to have 
your speed as close to zero as you can when you land. Can you land safely on the 
moon? 



20 
30 
40 
50 
60 
70 
80 



PRINT 
LET T 
LET H 
LET V= 
LET 
PRINT 
PRINT 



"MOONLANDER" 

=0 

500 

=50 
120 

"TIME" 5 T, "HEIGHT" ;H 
"VEL. "; V, "FUEL";F 



Notice the commas and semi- 
colons in lines 70 and 80. 
I Experiment with leaving 
I them out and changing them 
^ round to see what happens. 







90 IF F=0 THEN SOTO 140 



lOO PRINT "BURN? (O- 
110 INPUT B 
120 IF B<0 THEN LET 
130 IF B>30 THEN LET 
140 IF B>F THEN LET 



-30) " 



B=^0 

B=30 
B=F 



150 LET Vl=V-B+5 
160 LET F=F-B 



170 IF <V1+V)/2>=H THEN GOTO 220 




180 LET H=H-(Vl+V)/2 
190 LET T=T+1 
200 LET V=V1^ 



210 60T0 70 

220 LET Vl=V+(5-B) *H/V 

230 IF VI >5 THEN PRINT "YOU CRASHED-ALL DEAD" 
240 IF VI >1 AND Vl<=5 THEN PRINT "OK-BUT SOME 
250 IF V1<=1 THEN PRINT "BOOD LANDING." 
260 STOP 

The above listing will work on a ZX8 1 . For 
other computers, make the changes below.. 

•10 HOME 

AlO PRINT CHR»(147) 

i 

12 See page 2 for meaning of 



INJURIES 



•3' 



♦ 



Sets the starting values for 
time, height, speed and fuel 
* and prints them. 

If you have no fuel left, 
computer jumps down the 
program, bypassing the 
section which asks you for a 
■ bum. It then prints a running 
commentary of your progress 
as you approach the moon's 
surface. 

> Gets a number from you for 
the amount of fuel you wish to 
bum and checks it is within 
the correct limits. 

. Calculates your new speed, VI . 
- Calculates your new fuel level. 



- Checks if the distance 
travelled in your last go is 
greater or equal to your 
height above the moon. If it 
is, you Ve landed. Computer 
then jumps down program to 
see how good a landing you 
made. 

- Calculates your new height. 

- Increases time by 1. 

- Puts your new velocity into V 
so it will print in line 80 for 
your next go. 

- Goes back to beginning of 
loop for next go. 




Adding to the program 

If you add the following lines, you will see a star 
printed each go. The distance of the star from 
the left-hand side of the screen corresponds to 
your height above the moon. 

85 FOR 1=2 TO H/500*nn 
Biy PRINT " 

87 NEXT I 

88 PRINT 

Replace nn with the width of your screen. 

Changes to try 

Try changing the values of H, V and F in lines 40 
to 60 and see what happens. 




Calculates your speed on 
touch-down and checks what 
kind of landing it gives yon. 






V 






Monsters of Galacticon 



Landing on Galacticon was easy- 
but no-one waxned you that some of 
the nastiest monsters in the known 
Universe are to be found there. 

As each monster threatens, you 
must choose one of your weapons- 
a ray gun, a trypton blaster or a 
sword laser - to use against it. Can 
you make the right choices? If so, 
you may live to conquer Galacticon. 




10 PRINT "MONSTERS OF GALACTICON" 



20 DIM M«(4) 



30 LET N=4 



40 LET M=5 



★I 
★ 



"SULFACIDOR" 
"FLAMGONDAR 
"BALNOLOTIN" 
"BDLANDOR" 

N 

<RND»N+1) 
(RND«N+1) 
<A) 

=M« (B) 
=T* 



14 




How the 
program works 

Sets up a storage place (an 
"anay ") LabeUed M$ with 4 
compartments in it - M$( 1 ), 
M$(2), M$(3) and M$(4) - one 
for each monster name. 

Sets the number of monsters 
to 4. 

Sets the number of people in 
your group to 5. 

Puts the 4 monster names into 
the array. 




160 FOR 

170 CLS 

BO LET H 
190 PRINT 
200 PRINT 



INT(RND 
"MONSTER 
"IT'S 



D»N+i) n 

ER COMING. .."t 
A "!M»(R) J 



210 PRINT "WHICH WEAPON ? (R, S OR T) 
220 INPUT R* 
s*BA«230 LET W=CODE (R» ) -54+R 

*BA240 LET W=W-3« (W>3) -3* <W>6) 




250 IF W=2 THEN GOTO 300 



These lines shuHle the 
monsters up. Computer loops 
round N times. Each loop, it 
selects two numbers between 
1 and N and switches the 
names in the compartments 
with those numbers. T$ is a 
temporary string used during 
the switch roundprocess. 

Begixinizig of loop for 8 turns, 
aears screen 

Chooses one of the monsters 
and prints its name. 

The computer uses the values 
in R and R$ to work out a 
weapon number, W, which 
will be 1,2 or 3. 

If W is 2, the computer jumps 
to 300 to say you've killed the 
monster. 



See page 2 for meaning o/« a ■ 





270 PRINT "NO USE. IT'S EATEN ONE" 
280 PRINT "OF YOUR BROUP" 
290 GOTO 360 

300 PRINT "YOU'VE KILLED IT" 
310 GOTO 380 
320 PRINT "NO EFFECT" 
^■▲•330 IF RND>.4 THEN GOTO 3S0 



If W is 3, compatet jumps to 
320 to say "no effect". 

Prints if W is aotZ or 3. Then 
jnmiffi to 360 to decrease 
number of people in gronp by 
one. 

Leading on from the **no 
effect" line is a random 



[m possibility of the monster 

340 PRINT "YOU ANGERED THE " ; M» (R) ; "AND I T " f being angered and killing 
350 PRINT "KILLED ONE OF YOUR GROUP" J someone. 

Checks if yon still have some 

360 LET M=M-1 ~ 
370 IF M<1 THEN SOTO 440 




380 FOR 1=1 
390 NEXT I 
4O0 NEXT T" 



TO 20 




410 PRINT "YOU HAVE SURVIVED TO" 
420 PRINT "CONQUER GALACTICON" 
430 STOP 

440 PRINT "YOU'RE ALL DEAD" 
450 STOP 

The above listing will work on a ZX8 1 . For 
other computers, make the changes belcpw. 

■100 LET A=INTCRND(0)«N+1) 
lOO LET A=INT(RND(l)«N-i-l) 
110 LET B=INT (RND(0y «N+1 > 
110 LET B=INT(RND<1)»N+1> 
©170 HOME 

A 170 PRINT CHR»(147) 
■180 LET R=INT(RND<0) «N+1) 

R=INT(RND(1) «N+1> 
W=ABC(R*>-81+R 
W=CODE(R*) -81 +R 
W=W+3* (W>3) +3* (W>6) 



people left. If yon ha vent it 
jumps to 440 to tell you. 

Delay loop to keep messages 
on screen long enough for 
you to read them. 

Goes back for next tun. 

Prints if you still have people 
left after all your turns. 



■330 IF RND<0)>.4 THEN BOTQ 380 
*1A»380 FOR 1 = 1 TO 300 

i 



180 
^■▲•230 

S230 
240 



LET 
LET 



LET 

'*rA»330 IF RND<1>>.4 THEN GOTO 380 



J 




Puzzle comer 

There are at least four 
ways of making this game 
harider. 

Can you work out what 
they are? 




/ 




* 1 

You are the captain of an interstellai: cruiser 
which, through damage to one of its hyperspace 
tors, has strayed into a forbidden area. Alien sniper 
ships are attacking you and, to make things worse, are 
using a jamming device on your radar which makes it give _ 
false readings. Luckily your computer knows a code which you 
^ ^can use to work out the correct locations of the enemy ships. But y 

must be quick - they don't stay in one place for long! 
Your computer will print a letter (the false enemy location) and a code 
number. You must think through the alphabet by that number of letters and 
type in the letter you get to. E.g. for M 4, you must type 0, and for C 2, you must 
type E and so on. Typing in a letter automatically triggers off your laser 
gun, so if your letter is correct you'll score a hit. You can choose the 
difficulty of each game. This is a number between 1 and 10 and is the 
• '/ maximum number of letters to be added on each time. 
You get 10 alien snipers each game. See how many you can hit. 





10 
20 
30 
40 
50 
60 



PRINT "ALIEN SNIPERS" 
PRINT 

PRINT "DIFFICULTY (1-10)" 
INPUT D 

IF D<1 OR D>10 THEN BOTO 50 




How the program works 



Gets a difficulty number from 
yon, puts it in D, and checks it 
is within the correct limits. 



70 LET S=0 



80 FOR e=l TO 10 



90 LET L*=CHR»( INT (RND* <26-D)+38) > 



100 LET N=INT (RND*D+1 ) 

110 CLS 
120 PRINT 
130 PRINT L*,N 



-^■▲•140 



150 
160 
170 



FOR 1=1 TO 20+D»5 
LET I*=INKEY* 
IF I*<>"" THEN GOTO 
NEXT I 



190 



Sets opening score to zero. 

Beginning of loop which 
gives you 1 goes. 

Selects a letter between A 
and the letter which is your 
difficulty number before the 
end of the alphabet. 

' Selects a number between 1 
and D. 

Prints the letter and the 
number. 



Checks if you are pressing 
key and jumps to 190 if you 



180 GOTO 200 




CHART 




★■^•190 IF I*=CHR»(CODE(L«)+N) THEN LET S=S+1 



If you didn't press a key, 
computer jumps to line 200 
which sends it back for 
another go. 



Checks if yon 
the pressed 
right key and, 
if so, increases 
your score by 1, 



200 NEXT G 



;S; "/lO" 



210 PRINT "YOU HIT 
220 STOP 

The above listing will work on a ZX8 1 . For 
other computers, make the changes below. 

•10, 1 10 HOME 

PRINT CHR*(147) 
L*=CHR» ( INT (RND (O) * (26-D) 
L*=CHR» ( INT (RND ( 1 ) » (26-D> 
L*=CHR* < INT (RND t (26-D) +65 
LET N=INT(RND(0) *D+1> 
LET N=INT (RND( 1 ) *D+1) 
FOR 1=1 TO 2O0+D*50 
FOR 1=1 TO 100+D»50 
l%=" ■' 

LET I*=INKEY*(1) 
BET I* 

IF PEEK (-16384) >127 THEN GET 
IF I*=CHR*(ASC(L«)+N> THEN 



End of loop. Goes back for 
another turn. 

Prints score after 10 goes. 



AlO, 110 
■90 LET 
★a#90 LET 
S90 
■ lOO 

#■▲140 

• 140 

• 145 

A150 
•150 

190 



+65) ) 
+65)) 

)> 



I« 



LET S=S+1 



How to change the 
speed 

If the game is too cpiick for 
you, put a higher number 
into the middle of line 140 
(i.e. to replace 20 or 200). 
You can speed it up with a 
lower number. 







1 



How to make the game harder 

You could change the 1 in lines 40 and 
60 to, say, 3 to allow difficulties of only 3 
or more. 



Puzzle corner 

Can you adjust the scoring so that it fits 
the code number i.e. you score 1 point if 
the code is 1 , 2 points if the code is 2 and 
so on? 
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Asteroid Belt 



You are on a trip through the Asteroid Belt. To avoid crashing into the 
asteroids, you must destroy them and the force required for doing this 

depends on their size . 

Asteroids appear on your computer screen as groups of stars. To 
destroy them you must press the number key corresponding to the 
number of stars. Be prepared - asteroids come at you thick and fast. 




lO PRINT "ASTEROID BELT" 



20 LET S=0 



30 FOR G=l TO 10 — 
^•40 CLS 
^■▲•50 LET A-INT(RND«18+1) 



How the program works 



Sets the opening score to 
zero. 

Starts a loop which gives 10 
goes. 

Chooses a number 
for the position of the 
asteroid across the screes. 
Pats this in A. 



★■A«60 LET D=INT(RND»12+1) 



ifmAWiJO LET N=1NT(RND»9+1) 



80 FOR 1=1 TO D 
90 PRINT 
100 NEXT I 



Chooses a nnniber (1 to 12) 
for the position of the 
asteroid dovm the screen and 
pats it in D. 

Chooses anoinber (1 to 9) for 
ttie number of stars in the 
asteroid. 

Moves the cnrsor D lines 
down the screen. 



no FOR 1 = 1 
120 IF lOl 
130 PRINT 
140 PRINT TAB (A) 
150 PRINT "*"; 
160 NEXT I 

170 PRINT 



TO N 
AND I<>4 



AND I07 THEN GOTO 150 



Loops roond N times 
printing a star each 
time in the appropriate 
position. 



★■A*180 FOR 1 = 1 TO lO 
★a»190 LET Q=VAL("0"+INKEY*> 
20O IF QOO THEN GOTO 240 



★210 NEXT I 

220 PRINT "CRASHED INTO ASTEROID 
230 GOTO 290 



Loops ronnd to see if yon are 
< pressing a key and Jumps to 
240 if yon are. 



ti 




240 IF QON THEN BOTD 270 



Prints if yoa ran out of tizne. 

Checks if y oiur nvmber is the 
' same as N and Jumps to 270 if 
itmnt. 



250 PRINT "YOU DESTROYED IT" 



260 LET S=S+1 
270 



Prints if yoa pressed the right 
munbeT. 

Increases yonr score fay one. 



IF Q<N THEN PRINT 
IF Q>N THEN PRINT 



"NOT STRONG ENOUGH H Compares your number writh 
It Tnn STRONG " ^ and inints an appropriate 



^■A«290 FOR 1=1 TO 50 

300 NEXT I 



310 NEXT G 



320 PRINT "YOU HIT ";S; 
330 STOP 



tt 



OUT OF 10" 



The above listing will work on a ZX8 1 . For 
other computers, make the changes below. 



•40 

A40 
■50 
^A«50 
■60 

^▲•60 
■ 70 

70 
175 
^180 

▲•180 
A 190 

★ 190 

★ 190 

★ 210 

★■290 
A9290 



HOME 

PRINT CHR»(147) 

A=INT (RND (O) « IB+i ) 
A=INT<RND<l)«18-i-l) 
D=INT<RND(0) «12+1> 
D=INT(RND(1) «12+i> 
N=INT(RND(0) *9+i) 
N=INT (RND ( 1 ) «9+l ) 



LET 



Q=0 

FOR 1=1 TO lOO 
GET Q 

IF PEEK (-16384) >1 27 
D=INKEY(100>-48 



THEN GET Q 



FOR 
FOR 



1 = 1 
1 = 1 



TO 
TO 



500 



Delay loop to keep messages 
on screen long enovgh for 
yon to read them. 

Goes back for another go. 

Prints your score after 10 
goes. 



Changing the speed 
of the game 

Line 1 80 (190 for the BBC) 
controls how much time 
you have to press a key. 
Change the last number in 
1 80, or the number in 
brackets in the BBC line 
190, to a lower number to 
speed up the game . 



See page 2 for meaning of 




Puzzle corner 

Can you adapt the scoring 
system so that, for each 
asteroid, you get the same 
number of points as there 
are stars in it? 



Trip into the 

Imagine you are in a 
spaceship travelling 
nearly as fast as light. 
Strangely time is 
passing more slowly 
inside your spaceship 
than outside. So, 
having set off on a long 
fast space trip, you 
can return to Earth 
further in the future 
than the clocks inside 
your ship indicate. 

In this game, your 
computer tells you 
how many years must 
elapse on Earth 
before you return. 
You then decide the 
length of your trip (in 
light years) and the 
speed ofyonr ship (as 
a fraction of the speed of 
light) in onler to achieve 
this. Take care not to 
travel too far too slowly or 
you win die of old age on the way 





20 



PRINT 
LET T 
PRINT 
PRINT 



"TRIP INTO THE FUTURE" 
INT <RND» 100+25) 
"YOU WISH TO RETURN ";T 
"YEARS IN THE FUTURE- " 




PRINT 

70 PRINT "SPEED OF SHIP <0-l)" 
80 INPUT V 
90 IF V>-1 OR V<=0 THEN 60T0 70 



How the program works 



Chooses a whole munber 
between 25 and 124 for the 
yean which must elapse 
befote yonz retain, and prints it. 



100 PRINT "DISTANCE OF TRIP" 
110 INPUT D 

120 LET T1=D/V 




Gets a speed from yoa and 
checks it is within the correct 
limits. 

Gets a distance from yon. 

Calculates the time taken 
inside the ship. 




See page 2 for meaning of •au * 




130 LET T2=T1/BQR(1-V*V) 



140 PRINT 
150 PRINT 
160 PRINT 



YOU TOOK " ; T 1 ; " YEARS " 
"AND ARRIVED ";T2j "YEARS' 
"IN THE FUTURE. " 




170 IF Tl>50 THEN GOTO 210 



Calcnlates the time taken 
ontside the ship (Le. on 
Earth). 

Prints these times. 



Checks if yon took longer 
than your lifetime (50 yean). 
Jumps to line 210 if yon did. 



180 
190 
200 
210 
220 



IF ABS<T-T2)<=5 THEN PRINT "YOU ARRIVED ON TIME"! 

I T01I were 

IF ABS(T-T2)>5 THEN PRINT "NOT EVEN CLOSE" Lwithin 
STOP I 5 

PRINT "YOU DIED ON THE WAY" J andprints 

STOP a message. 



The above listing will work on a ZX81. For 
other computers, make the changes below. 

•10 HOME 

AlO PRINT CHR«(147) 
■30 LET T-INT<RND(0) » 100+25) 
★a«30 LET T=INT(RND<l)«100-«-25) 



Puzzle corner 

Can yon work out how to change the 
program to do the foUowing things? 



1) Give a wider range of years which 
most elapse before yon retnm to Earth. 

2) Increase the accoracy required from 
within 5 years to within 2 years. 

3) Shorten or lengthen your lifetime. 
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Death Valley 



You 



Speed Dart 



There is only one way to escape the forces of the evil Dissectitrons, 
will have to steel every nerve and fly your single-seater 
along the jagged, bottomless ravine known as Death Valley. 

Your computer will ask you for the width of the valley. Try 15* first and 
then work your way down - 8 is quite difficult. Steer your Speed Dart by 
pressing Q to go left and P to go right, and see if you can make it safely 
through Death Valley. 

*If yon are using a VIC 20, then use widths of 6 to 10. 

n 




10 PRINT "DEATH VALLEY" 
20 LET S-0 



30 LET M=200'' 



40 PRINT "WIDTH?" 

50 INPUT M 

60 LET W=INT(W/2) 




A 70 
80 
90 



LET 
LET 



L=10^ 
Y=W \ 
R=W J 



Edge 
ofscreea 



Jen I ^ 



L spaces 



10 at 
start) 



100 LET D=INT(RND*3-1> 



110 IF L+D<0 OR L+D>20 THEN GOTO lOO 



120 LET L=L+D 
130 LET Y=Y-D 
140 LET R=R+D 




s 



145 SCROLL 
150 LET N=L 
160 GDSUB 1000 
170 PRINT "I"; 

ISO LET N=Y 
190 GOSUB 1000 
200 PRINT "«"s 



210 LET N=R 
220 GOSUB 1000 
230 PRINT "I" 




★a»240 let I*-INKEY* 



250 IF I*<>"Q" THEN GOTO 280 



260 LET Y-Y-1 
270 LET R=R+1 



How the program works 

Sets the number of goes used 
<- to zero for start of game. 

- M is the maximuzn number of 
goes allowed. 

Gets a width number from 

- y oUi divides it by 2 and uses 
INT to remove any halves. 

Y and R are the distances 

- between walls and Speed 
Dart. 



r spaces 



R spaces 



(=Wat 
stajrt) 



( = Wat 
start) 



*-I 



Selecjts - 1, or + 1 and puts it in D. 

Checks L +D isn't so big or 
small that columns disappear 
offsides of screen. 

Changes spaces between 
columns according to the 
value ofD. 



+D 

Moves cursor L spaces 
across the screen and prints 
L (The semi-colon then stops 
the cursor going down to the 
next line.) 

Moves cursor a further Y 
' spaces and prints. * 

Moves cursor a further R 
spaces and prints another I. 
(No semi -colon this time, so 
> the cursor then goes down to 
the nesrt line.) 



- Checks to see if you are 
pressing a key . 

, If the key you are pressing is 
nof Oi computer jumps to 280. 



If key is Q then Y is 
decreased by one and R 
increased by one so star 
moves left. 



280 IF I«<>"P" THEN GOTO 310 Checks if key being pressed is P 




290 
300 



Y=Y+l"l 
R=R-lJ 



310 IF Y<1 OR R<1 THEN SOTO 370 



LET S=S+1 



330 IF S<M THEN GOTO 100 



340 PRINT "WELL DONE- YOU MADE IT 
350 PRINT "THROUGH DEATH VALLEY" 
360 STOP 

370 PRINT "YOU CRASHED INTO THE WALL" 
380 PRINT "AND DISINTESRATED" 
390 STOP 

lOOO IF N=0 THEN RETURN 
1010 FOR 1=1 TO N 
1020 PRINT " 
1030 NEXT I 

1040 RETURN . 

The above listing will work on a ZX81 . For 
other computers, make the changes below. 

A 70 LET L=4 

■lOO LET D=INT(RND(0) *3-l) 
*A«100 LET D=INT(RND(1) »3-l) 
ls#aA«145 

•235 1*="" 
A 240 GET I* 
★240 LET I«=INKEY«<1) 
•240 IF PEEK (-16384) >127 THEN BET 



If SO, Star is moved right by 
increasing Y by one and 
decreasing R by one. 

Checks if yon have crashed 
into a wall. Jumps to 370 to 
tell you if you have. 

Increases number of goes 
used by one. 

Goes back for another turn if 
you have had less than M goes, 

Prints if you have had M goes 
and no crash. 



Sub-routine for moving the 
cursor to the appropriate 
places for printing I and 



Slowing down the 
game 

If this game is too fast for 
you, you can add a delay 
loop at lines 141 and 142: 

141 FOR J=l TO 100 

142 NEXT J 

Change the number in line 
141 to acUust the speed - 
the lower the number the 
faster the game. 



^7 



O Q 



Puzzle corner 

[ow can you make the 
valley longei? 
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•a Sir 



Space Mines 



You are the newly elected leader of a mining 
colony on the Planet Astron. All decisions 
concerning the sale of ore to Intergalactic 
Traders, food purchase and sale and purchase of 
mines are made by you. Can you keep the people 
satisfied and survive your 10 years in office or 
will life in the colony end in disaster under your 
rule? 






' 10 


LET 


L= 


INT<RND*3+5) 




20 


LET 


P= 


INT (RND»60+40) 




30 


LET 


h= 


INT (RND«5O+10) *P 




40 


LET 


FP 


=INT<RND*40+8O) 




,50 


LET 


CE 


=INT(RND*40+80> 


60 


LET 


C= 


— ^^^^ 



70 
80 

90 



S=l 
LET Y=l 



program works 

These lines decide the number of 
mines (L), number of people (F), 
amount of money (M), price of 
food (FP) and amount of ore 
produced per mine (CE) for the 
start of the game. 

Sets the amount of ore in 
storage to zero for start. 

Sets the satisfaction factor to 1. 
Sets the year number to 1 . 




LET LP= I NT (RND« 2000+2000) 



A«i00 LET CP=INT(RND«12+7) 
▲•110 CLS 

" YEAR " ; Y 



Selects 
for mines. 

Selects selling price for ore. 



"THERE ARE "j;P;" PEOPLE IN THE COLONY" 
"YOU HAVE ";L;" MINES, AND *"M 
"SATISFACTION FACTOR ";S 



120 PRINT 
130 PRINT 
140 PRINT 
150 PRINT 
160 PRINT 
170 PRINT 

180 PRINT "YOUR MINES PRODUCED ";CE;" TONS EACH" 
190 LET C=C+CE*L 
200 PRINT 
210 PRINT 
220 PRINT 
230 PRINT 

240 PRINT 



250 
260 

270 



INPUT 

IF CS<0 OR 
LET C=C-CS 



"ORE IN STORE=";C;" TONS" 
"SELLING" 

"ORE SELLING PRICE="iCP 
"MINE SELLING PR ICE=" ; LP; " /MINE" 

"HOW MUCH ORE TO SELL?" " 

cs 

CS>C THEN GOTO 240 



Prints current state 
of affairs in the 
colony. 



aO LET M=M+CS*CP 



290 PRINT "HOW MANY MINES TO SELL?" 
300 INPUT LS 

IF LS<0 OR LS>L THEN GOTO 290 
LET L=L-LS 

LET M-M+LS*LP _ 



310 
320 
330 



Asks how much ore you want 
to sell, puts it CS and checks 
youVe got that much in store. 

' Takes amount sold away 
from amount in store. 

Works out how much ore sold 
is worth and adds this to your 
money supply. 

Does the same process for 
selling mines. 



340 PRINT 

350 PRINT "YOU HAVE »" ; M 
360 PRINT 

370 PRINT "BUYING" 

380 PRINT "HOW MUCH TO SPEND ON FOOD ? 
390 INPUT FB 



Prints your new money supply. 



I Asks how 
i APPR . * 1 00 E A . ) " I — much you 

J want to 
spend on food and puts this in FB. 



400 IF FB<0 OR FB>M THEN GOTO 380 
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410 LET M=M-FB 



Checks you have enough 
money to pay. 

Adjusts your money supply. 



1 








420 IF FB/P>120 THEN LET S=S+. 1 
430 IF FB/P<80 THEN LET S=S-.2 

440 PRINT "HOW MANY MORE MINES TO BUY?" 
450 INPUT LB 

460 IF LB<0 OR LB»LP>M THEN 60TD 440 



470 LET L=L+LB 



480 
490 



LET M=M-LB»LP 



IF S<.6 THEN GOTO 660 



*BA«500 IF S>1.1 THEN LET CE=CE+INT (RND»20+1 ) 



510 IF S<.9 THEN LET CE=CE- INT (RNDt 20+1 ) 



S20 IF P/L<10 THEN GOTO 680 



★■A»530 IF S>1.1 THEN LET P=P+INT (RND»10+1) 
540 IF S<.9 THEN LET P=P-INT (RND« 10+1 ) - 



550 IF P<30 THEN GOTO 700 



MANY DIE" 



560 IF RND>.01 THEN GOTO S'^O 
570 PRINT "RADIOACTIVE LEAK... 
580 LET P=INT<P/2) 
590 IF CE<1S0 THEN GOTO 620 
600 PRINT "MARKET GLUT - PRICE DROPS" 
610 LET CE=INT(CE/2) 



620 LET Y=Y+1 



630 IF Y<li THEN GOTO 90 

640 PRINT "YOU SURVIVED YOUR TERM OF OFFICE 
650 STOP 

660 PRINT "THE PEOPLE REVOLTED" 
670 STOP 

6B0 PRINT "YOU'VE OVERWORKED EVERYONE" 
690 STOP 

7O0 PRINT "NOT ENOUGH PEOPLE LEFT" 
710 STOP 

The above listing will work on a ZX81. For 
other computers, make the changes below. 

• no HOME 

Alio PRINT CHR*(147) 
■^A^IO, 20,30.40,50,90, 100, 5O0, 510, 530 , 540, 560 

change RND to RND ( 1 > 
■10,20,30,40,50,90, 100, 500, 510, 530,540, 560 

change RND to RND(0> 

See page 2 for m eaning o/# a ■ * 




Pi ^ 



Adjusts satisfactton factor 
according to how much you 
spent on food. 

Asks how many mines you 
want to buy and checks you 
can afford them. 

Increases number of mines if 



Tl 



I Adjusts your money again. 

Checks on value of 
satisfaction factor. If this is 
very low, computer jumps to 
660 to end the game. 

If S is high then amount 
prcKiuced per mine is 
increased. 

If S loW| amount produced is 
decreased. 

If there are less than 10 
people per mine, game is oveii 

More people arrive if S is high. 
People leave if S is low. 

> If there are less than 30 
people, game is over. 

Introduces small chance of 
half the people being killed. 

If the amount produced per 
mine is very high, ore price is 
halved. 

Year number increased by 1 
and if it is less than 1 1, 
computer goes back to 90 for 
another go. 

Prints if the computer 
reaches this stage in the 
program on your 10th go. 




uzzle corner 



Can you make the 
computer ask if you would 
like another game and add 
the money you have ended 
up with to the new money 
supply for the next game? 
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■ 

space Rescue 



- V 



You must make an urgent trip across the spiral arm of the Galaxy to a 
developing planet which is in need of medical supplies. The trip involves 
such huge distances that for most of it you will be in a deep sleep, but before 
this you must program the ship for the journey. The computer will ask how 
much energy you want to allocate to the engines, life support system and 
shields and then put you to sleep. 

When you wake up, it will give you a report on what happened during the 
trip and, if all went well, you will be orbiting the planet. You must now 
allocate your remaining energy to the landing boosters and shields in order 
to make a good landing on the planet. 

If you accomplish the mission safely, you stand a good chance of being 
promoted to Space Admiral. Good luck! 



▲•10 

20 
30 



PRINT 
PRINT 



40 PRINT "DO YOU WANT INSTRUCTIONS? " 
^ 50 INPUT I* 
★■▲•60 IF I*(1)^"Y" THEN GOSUB lOOO 
★■A#70 LET D=INT(RND»800+101) * / 

..★■▲•80 LET E=INT(RND«400+401> 

90 LET T=INT{D/SQR(E/5)+-5> 
.100 PRINT "THE PLANET IS ";D;" UNITS AWAY" 

110 PRINT "YOU HAVE "5E;" UNITS OF ENERGY" 

120 PRINT "AND A TIME LIMIT OF ";T;" DAYS" 

130 PRINT • 

140 PRINT "ENERGY DISTRIBUTION:". 

1 50 PR I NT " TO ENG I NES? " ' 

160 INPUT P ; 

170 PRINT "TO LIFE SUPPORT?" . 

ISO INPUT L 

190 PRINT "TO SHIELDS?" 



"ENERGY DISTRIBUTION: " 
"TO ENGINES?" 



SUPPORT? 



190 PRINT "TO SHIELDS?" 
200 INPUT S 

210 IF P+L+S>E THEN GOTO 140 
220 LET X==E-P-L-S 
230 LET V=INT<SQR(P> > 
240 LET T1=1NT<D/V) " 



-^•250 CLS • . • : 

* 260 PRINT "YOUR VELOCITY IS ";V 
- 270 PRINT "YOU HAVE AN ETA OF "5TI;" DAYS" 
280 PRINT • 
★■▲•290 FOR 1 = 1 TO INT(RND»5+6> V 
★■▲•300 IF RND>-5 THEN GOTO 430 • ; . • 

★■▲•3 1 GOTO 320+ INT ( RND«4 ) «30 • • * - ' • 
!6 320 PRINT "ASTEROID STORM - SHIELDS DAMAGED" 



★■A»330 LET S=S-20-INT(RND«40+l) ' ^ . 

• 340 GOTO 430 ■ . • 

350 PRINT "COMPUTER BREAKDOWN - DELAY IN REPAIRING" 
.★■a«360 let D=D+INT(RND*20+1> 

370 GOTO 430 
['■'. 380 PRINT "ENGINE TROUBLE - MUST SLOW DOWN" 

390 LET V=V--5 / ■ : ■• 

. 400 GOTO 430 : - ■ ' • ■ ■■ 

410 PRINT "X-RAY DAMAGE - LIFE SUPPORT DAMAGED" ; 

• 420 LET L=L-20-INT(RND*40+l) : ; . 
★■A«430 FOR J= 1 TO 50 

.\ - 440 NEXT J . ''\ ■/:■■ ' 

■■.450 NEXT I '.V: . . V ■ ./.^ \ . • - " 

.460 LET T1 = INT(D/V> " ^ ; - ^ ^ - ^^^-^^ : . 

■ :--'.A«470 CLS • • •■ ■ " : ; ^v-^;:;.- .:' 

480 PRINT "ARRIVED IN ";T1;" DAYS" : '.::, :ry'- 

.490 IF S<0 THEN PRINT "SHIELDS DESTROYED" 
495 IF S<0 THEN PRINT "YOU WERE BLOWN UP" ' 
- 500 IF L<=0 THEN PRINT "LIFE SUPPORT INACTIV^" 
505 IF L<=0 THEN PRINT "YOU'RE DEAD" 

510 IF V<=0 THEN PRINT "ENGINES ARE NON-FUNCTIONAL" 
.. 520 IF T1>T THEN PRINT "YOU TOOK TOO LONG ABOUT IT" 
530 IF S<0 OR L<=0 OR V<=0 OR T1>T THEN STOP . i 
★■^•540 LET G=INT(RND«10+5> . . ; V .* 

550 LET G*="HIGH" . ! ' V 

: 560 IF G<12 THEN LEt G*="MEDIUM" - 
570 IF G<B THEN LET G*="LOW". . 
★■A»580 LET A=INT(RND»10+5) . . , " " . 

590 LET A*'="HIGH" ' . .* . 

600 IF A<12 THEN LET A*="MEDIUM" 
610 IF A<a THEN LET A»="LOW" ' ; / . 

• 620 PRINT . . ' \ ■ 
. 630 PRINT "YOU ARE NOW ORBITING THE PLANET" ^ 



★■A«580 

590 



640 PRINT "SURPLUS ENERGY= 
650 PRINT "GRAVITY IS "jG* 
660 PRINT "ATMOSPHERE IS " 
670 PRINT . 

6S0 PRINT "HOW MUCH ENERGY 



A« 



• 6S0 PRINT "HOW MUCH ENERGY TO BOOSTERS?" ' 
690 INPUT B ^ ; . . 

700 PRINT "HOW MUCH ENERGY TO HEAT SHIELDS?" 

710 INPUT S - '-'^ ■ --^ ' 

■720 IF B+S>X THEN GOTO 680 r 

.740 IF B>=G»10 THEN GOTO 770 i : . r 



Program con tin ued on next page. 



-:i .. 



Space Rescue continued 



■ ■ I. , 



' I r 



750 PRINT "YOU MADE A NEW CRATER" . 
760 GOTO 940 . . • . • 

'770 IF S>^A»10 THEN GOTO BOO " • 

780 PR I NT " YOU MADE A WONDERFUL SHOOT I NG STAR " 
■ 790 GOTO 840 
BOO PRINT "YOU LANDED SUCCESSFULLY - WELL DONE" 
BIO IF X-S-B>25 THEN GOTO 840 
820 PRINT "PITY YOU DON'T HAVE ENOUGH" 
830 PRINT "ENERGY TO OPEN THE DOOR" 
840 STOP 
1000 PRINT ' 

1010 PRINT "YOU ARE ABOUT TO EMBARK ON A" 
1020 PRINT "MISSION TO A DISTANT PLANET" 
1030 PRINT "IN URGENT NEED OF MEDICAL" 
1040 PRINT "SUPPLIES- YOU MUST FIRST READY" 
1 050 PR I NT " YOUR SH I P FOR THE TR I P BY " 
1060 PRINT "ALLOCATING SOME OF THE SHIP'S" 
. 1070 PRINT "ENERGY TO THE ENGINES, SHIELDS" 
1080 PRINT "AND LIFE-SUPPORT. YOU ARE" 
1090 PRINT "THEN PUT TO SLEEP FOR THE MAIN" 
UOO PRINT "PART OF THE TRIP, AFTER WHICH" 
1110 PRINT "YOU WILL GET A REPORT OF THE" 
1120 PRINT "EVENTS ON THE WAY. YOU MUST" 

1130 PRINT "THEN LAND ON THE PLANET " 

1140 PRINT "PRESS ANY KEY" 
•1150 IF INKEY*="" THEN GOTO 1150 



1070 PRINT 
1080 PRINT 
1090 PRINT 
1 1 00 PR I NT 
1110 PRINT 



1140 PRINT "PRESS 
★■Afll50 IF INKEY*="" 
A«1160 CLS 

1170 RETURN 



The above listing will work on a ZX8 1 . For 
other computers, make the changes below. 



■all RND to RND(O) • . ' 
★^•ail RND to RND(l) 

■ •10,250,470,730,1160 HOME * . . .. 
AlO, 250, 470,730, 1160 PRINT CHR*(147) 

★■A»60 IF LEFT*(I*, 1)="Y" THEN GOSUB lOOO 
★■A»310 ON INT(RND»4+1) GOTO 320,350,380,410 
- 'iA»430 FOR J=l TO 500 . • 

★430 FOR J=l TO 1000 ' . . " 

■★1150 I=GET • • . 

■ ♦IISO GET I* . • . * • ■ - v ' ■■ ' . 
■A1150 GET I* : IF'i*="" THEN GOTO 1150 



28. 





Adding to the game 

Thisganie is ieally znadenp iKf two parts. la tlwfint part yeasot^onyour 
space joumey with the aim of orbiting the plaziet and in the second you 
attempt to land on the planet. You could perhaps try adding a third part in 





I ~ 

■ 



Touchdown 

I 

This game is different from the others in this book because it uses graphics. 
As the computers vary so much in the way their graphics work, there is a 
separate program for each one. Read the instructions on this page for how 
to play the game and then look through the pages that follow for the version 
for your computer. 

i 

I 

How to play Touchdown 



Ace space pilot, Captain Flash, is sitting next to you as you take the final 
part of your Advanced Spacecraft Handling Test (Part III). Your 
lightweight, two-man landing craft is rapidly approaching the Moon's 
surface. Your velocity must be almost zero as y ou touch down. Deftly you 
control the thrust, pressing A to increase it and D to decrease it*, watching 
your progress on the screen all the time. If you use too much thrust you will 
begin to go back up again. Too little and you will make a new crater on the 
Moon. Can you impress Captain Flash with your skill ? 

* For VIC, use the cursor down key to increase thrust and the cursor right 
key to decrease it. 



Touchdown: TRS-80 version 



20 
30 

31 

33 
34 



CLS 

CLEAR 200 
B°*=STRIN6* (25, 131 > 
Ml*=CHRt { 194) +STRINB*(2, 176> 
M2t=" "+STRING* (4, 191) 
35 M3t=CHR* < 1 31 ) +CHR* ( 1 35 ) +STr( i N(5* 
<2, 131 > +CHR4 < 139) +CHR* (131 ) 
BOSUB 250 
GOSUB 300 



40 
50 
60 
70 
80 
90 



30 



C= 1 : BOSUB 390 
A= 1 s B=F : GOSUB 460 
ft=2 : B=ABS ( V ) : GOSUB 4&0 
A=3:B=H: GOSUB 460 
100 A=4: B=T: GOSUB 460 
110 GOSUB 530 

120 Vl=V-T/20+G s F=F-t/iO 
130 H1=H-(V+V1)/10 
140 C=0: GOSUB 390 

IF HKO THEN 200 
H=H1:V=V1 
IF H<=100 THEN 60 
BOBUB 590 
GOTO 220 
200 H=0:C=1: GOSUB 390 
210 BOSUB 660 
220 END 

250 H=100:F=100:T=0 

260 V=INT(RND(0)«10+6) 

270 6=INT(RND(0>«40+41> /lOO 

280 RETURN 

300 FOR X=80 TO 127 

320 BET (X,47-INT(RND(0) *5> ) 

330 NEXT 

340 PRINT "GRAVITY-" ;G 
350 PRINT 3192, "FUELS " 



150 
160 
170 
1 80 
190 



360 
365 
370 
390 
400 

410 



PRINT 3384, "VEL: " 
PRINT 3576, "HEIGHT: " 
PRINT 3768, "THRUST: 
RETURN 

Y=818-64* INT (H/8) 

PRINT 3Y,; : IF C= 1 THEN PRINT 
ELSE PRINT 
3Y+64, ; : 
M2*; ELSE 



CHR*( 196) ; 
IF C=i THEN 
PRINT CHR* 



420 



3Y+12S,; I 
M3*j ELSE 



IF C=i THEN 
PRINT CHRt 



440 
460 

470 
480 
510 
530 
540 



1-1 ij 



O 



560 
570 
590 
600 
610 
620 
630 
640 
650 
660 

6 70 

680 



Mlt; 

PRINT 
PRINT 

(198) ; 
PRINT 
PRINT 
(198) 
RETURN 
Y=(A*3+1>*64 
PRINT 3Y,CHR*(217) ; 
PRINT 3Y,LEFT* (B*, B/4) 3 

RETURN 
I*=INKEY4 

IF It="A" THEN T=T+4 : IF 

T>100 THEN T=100 

IF I*="D" THEN T=T"4 : IF 

T<0 THEN T=0 

IF T>F THEN T=F 

RETURN 

CLS 

FOR 1=1 TO 20 

PRINT 3INT(RND(0)»1024> , 

NEXT 

PRINT 3470, "LOST IN SPACE!!" 

RETURN 

CLS 

PRINT "LANDED AT VEL 
INTt (V+Vl) *5) /lO 

IF (V+V1X8 THEN PRINT "SAFELY" 

ELSE PRINT "ALL DEAD" 
RETURN 






Touchdown : VIC 20 version 

20 PRINT CHR*(147)CHR»(5> ; 

25 POKE 36879,8 

30 OEF FNR(X)=INT(RND(1>»X4 

40 GOEUB 250 

50 BOSUB 300 

60 C-1:GGSUE 390 

70 A=l : B=F:GOSUB 460 

30 A=2:B=ABS (V) : GDBUB 460 

90 A=3:B=H: BOSUB 460 

100 A=4j B=TsGOSUB 460 

1 1 GDSUB 530 

120 Vl=y-T/20+G : F=F-T/10 

130 H1=H-\V+V1) /lO 

140 C=0:GOSUB 390 

150 IF HKO THEN 200 

160 H=H1jV=V1 

170 IF H<=100 THEN 60 

ISO BOSUB 590 

190 GOTO 220 

200 H=0: C= I : GOSUB 390 

210 80SUB 660 



220 END 



250 H=100sF=U>0sT=0 

260 V=5+FNR(10) 

270 G={FNR(40)+40>/J00 

280 RETURN 

300 FOR X=ai78 TO 8185 

320 POKE X,98+2«FNR(3) 

330 NEXT 

340 PRINT "GRAVITY="}G 

350 PRINT " BB^ UELa " 

355 PRINT "nnaijcri ... 

360 PRINT 

365 PRINT 

370 RETURN 



390 Y=8137-22*INT {H/5> 

400 IF C=0 THEN 425 

405 POKE V,J08 : POKE Y+ 1,123 

410 POKE Y+22, 160 i POKE Y+23, 160 

415 POKE Y+44,75 : POKE Y+45, 74 

420 GOTO 440 

425 FOR 2=0 TO 44 STEP 22 
430 POKE Y+Z,32 : POKE Y+Z+1,32 
435 NEXT ' 
440 RETURN 
460 FOR X=0 TO 9 
470 Y=A*88+X+7724 . 
480 IF X<B/10 THEN POKE Y, 102 s 
GOTO 500 

485 IF X<B/10+.5 THEN POKE Y, 92 : 

SOTO 500 
490 POKE Y,32 
5O0 NEXT 
510 RETURN 
530 GET I* 

540 IF I*="E1" THEN T=T+4 : IF T>100 

THEN T=100 
550 IF I*="H" THEN T=T-4 s IF T<0 

THEN T=0 
560 IF T>F THEN T=F 
570 RETURN 
590 PRINT CHR*(147) 
600 FOR 1=1 TO 20 
610 P0K;E 7679+FNR(506> ,42 
620 NEXT 

630 PRINT "LOST IN SPACE'!" 
640 RETURN 

650 PRINT CHR*( 147) "LANDED" 
660 PRINT "AT VEL " ; INT ( ( V+Vl ) t5) / lO 
670 IF (V+VIXS THEN PRINT "SAFELY" 

: RETURN 
680 PRINT "ALL DEAD": RETURN 



490 

5O0 
510 
530 

540 
550 

560 
570 
590 
600 
610 
620 
630 
640 
650 
660 
670 

6BO 



is cursor down key 



3] is cursor right key 




20 CLS 

30 LET b*=" 16666666^666666666666 J 
40 GOSUB 250 
50 GOSUB 300 
60 LET C=l 
65 GOSUB 370 
70 LET A=l 
75 LET B=F 
77 BOSUB 460 i 
BO LET A^2 ' 
85 LET B=ABS(V> 
S7 GOSUB 460 
90 LET A=3 
95 LET B=H 
97 GOSUB 460 
100 LET A=4 



1 version 



125 
130 
140 
145 
150 
160 
165 
170 
ISO 
190 
200 
205 
207 
210 




250 
252 
255 
260 
270 
280 
300 
340 
350 
355 
360 
365 
370 



400 
405 
410 
415 
420 
425 
430 
435 
440 
460 
470 
,480 



LET B=T 
GOSUB 460 
GOSUB 530 
LET Vl=V-T/20+G 
LET F=F-T/10 
LET H1=H-(V+V1)/10 
LET C=0 
GOSUB 390 

IF HKO THEN GOTO 200 
LET H=H1 
LET V=V1 

IF H<=100 THEN GOTO 60 

GOSUB 590 

GOTO 220 

LET H=0 

LET C=l 

GOSUB 390 

GOSUB 660 

STOP 

LET H=100 
LET F=lO0 
LET T=0 

LET V=5+INT (RND»10+1 ) 
LET 6=INT (RND»40+40) /lOO 
RETURN 

PRINT AT 21,20; "CSDADSADASa" 
PRINT AT 0,0; "GRAVITY="5 6 
PRINT AT 3,0; "FUEL: " 
PRINT AT 7,0i "VEL: " 
PRINT AT 11,0; "HEIGHT:" 
PRINT AT 15, O; "THRUST: " 
RETURN 

LET Y=(100-H) /6+1 
IF C=0 THEN GOTO 425 
PRINT AT Y, 24; "[343" 
PRINT AT Y+1,23;"CQ Wl" 
PRINT AT Y+2,23; "CTBGYl- 
GOTD 440 
PRINT AT Y,24;" 
PRINT AT Y+1,23;" 



510 
530 
540 



555 
560 
570 
590 
600 
610 

620 
630 
640 
650 
660 

670 



680 



RETURN 
LET I*=INKEY« 
IF I»="A" THEN LET T=T+4 
IF T>100 THEN LET T=100 
IF l*="D" THEN LET T=T-4 
IF T<0 THEN LET T=0 
IF T>F THEN LET T=F 
RETURN 
CLS 

FOR 1=1 TO 20 

PRINT AT INT(RND*22>, 

INT(RND«32) ; "»" 
NEXT I 

PRINT AT 10,10;"L0ST IN SPACE" 

RETURN 

CLS 

PRINT AT 20,0; "LANDED AT VEL " 
; INT( (V+Vl )«5) /lO 

IF (V+V1X8 THEN PRINT "SAFELY" 
IF (V+V1)>=S THEN PRINT 
•*ALL DEAD" 

RETURN 



PRINT AT Y+1,23;" 
PRINT AT Y+2,23; " 

RETURN SPACES) 
LET Y=A*4 C 

PRINT AT Y,0;"^ 

PRINT AT Y,0;B»( TO B/5) 



Special note for 
ZX81 users 

Graphic characters are shown 
in tlut lifitifig using thm 

+ol lowing convent i on- A 'E' 

^hmrmb^mr mmmt^ press the 

GRAPHICS key, and then type 
the folloMing letters/nuebers 
SHIFTED until '1* is 
/ reached 9 Mhen you type the 
' GRAPHICS key again, and go 
back to noj^mal . 






90 



O 



Touchdown: ZX Spectrum version 

CLS 

DEF FNr (x ) =INT (RND*x+l ) 
GOBUB 250 

■ 

GOSUB 300 . - 

LET c=0: GOSUB 390 
LET a=l: LET b=i s LET c=2*(f< 
GOSUB 460 

LET a=2: LET b=ABS v: 
LET c==4»(v<0) 
GOSUB 4^0 

LET a=3! LET b=hs LET c=2» (h< 
GOSUB 4feO 
LET a=4; LET b=t: LET c=0 
GOSUB 460 
GOSUB 530 

LET vl=v-t/20+g: LET f=f-t/l 
LET hl=h-<v+vl>/10 
LET c=l; GOSUB 390 
IF hl<0 THEN GOTO 200 
LET h=hl: LET v=vl 
IF h<=iOO THEN GOTO 60 
GOSUB 590 
190 GOTO 220 

200 LET h=Os LET c==Os GOSUB 390 
210 GOSUB 650 
220 STOP 

250 LET h=100: LET f=IOOs LET t 
260 LET v=5+FNr<10) 
270 LET G= <FNr (40> +40) /lOO 
280 RETURN . 
300 PLOT 180,8 
310 FOR x=l TO 15 
320 DRAW 5,FNr<3>-2 - 
330 NEXT X 

340 PRINT "Gravi ty='*;g 

350 PRINT " "Fuel : " * "yel : " 

360 PRINT "Height : "Thrust 

370 RETURN 

390 INVERSE c 

400 LET y=h« 1.3+10 



) 



5) 



lOO 
105 
llO 
120 
130 
140 
150 
160 
170 
180 



=0 



410 
420 
430 
440 
460 
470 
480 
490 
50O 
510 
530 
540 

550 

560 
570 
590 
600 
610 
620 
630 
640 
650 

660 
670 
680 



IF 
IF 
IF 
IF 

IF 



PLOT 200, y: DRAW 34, 
DRAW -4,20: DRAW -13, lO 
DRAW -13, -lO: DRAW -4,-20 
RETURN 

LET y=172-a»32 
INK c 
PLOT 0,y 
DRAW b , O 

DRAW INVERSE l,100-b,0 
RETURN 

i*=INKEY» 
i*="a" THEN LET t=t+4 : . 

t>100 THEN LET t=100 
i*="d" THEN LET t=t-4 : 

t<0 THEN LET t=0 

t>f THEN LET t=f 

RETURN 

CLS 

FOR i=l TO 20 

PRINT AT FNr (21) ,FNr (31) ; "»" 
NEXT i 

PRINT "Lost in space!!!" 
RETURN 

PRINT AT 0,0; "Landed at "j 
INT( (v+vl>»5) /lO' 
IF <v+vl)<8 THEN GOTO 680 
PRINT "All dead": RETURN 
PRINT "Sa+ely"! RETURN 






Touchdown : BBC version 



20 MODE 5 

30 »FX 12, 1 

40 PROCSETVAR 

50 PROCDISPLAY 

60 PRDCMDDULE <H, 3) 

70 PROCBAR(l,F,3+2» (F<25> ) 

80 PROCB AR ( 2 , ABSV , 3 + ( V < > > 

90 PROCBAR(3,H,3+2* <H<25) > 

100 PROCBAR(4, T,3) 

110 FROCTHRUST 

120 V1=V-T/20+G : F=F-T/10 

130 H1=H-<V+VI ) /lO 

140 FROCMODULE (H, O) 

150 IF HKO THEN 200 

160 H=H1:V=V1 

170 IF H<=100 THEN 60 

ISO PROCLOST 

190 SOTO 220 

200 PROCMODULE{0,2) 

210 PROCLANDED 

220 *FX 12 

2 30 END 

240 DEF PROCSETVAR 

250 H-100:F=100:T=0 

260 V=5+RND(10) 

270 6= < RND < 40 ) +40 > / 1 OO 

280 ENDPROC 

270 DEF PROCDISPLAY 

300 MOVE 800,30 

31 O FOR X=800 TO 1280 STEP 

320 DRAW X , 1 0+RND ( 40 > 

330 NEXT 

340' PRINT "GRAVITY 
350 PRINT " ' "FUEL 
360 PRINT "'"'"HEIGHT 
370 ENDPROC 

380 DEF PROCMODULE(H,C) 
390 GCOL 0,C 
400 Y=H*8.5+150 
410 MOVE 1040, Y : PLOT 1 
420 PLOT 1,-8,-60 : PLOT 1 
430 PLOT 1,-8,60 : PLOT 1 
440 ENDPROC 
450 DEF PROCBAR (N, V,C) 
460 Y= 1 000-1 92 *N 
470 GCOL 0,C 

430 MOVE 0,Y : MOVE 0,Y-16 



490 
5O0 
510 
520 
530 
540 

550 
560 



580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 

700 



PLOT 95,V»4,Y : PLOT 85,V*4, 
PLOT 87, 400, Y i PLOT 87,400. 
ENDPROC 

DEF PROCTHRUST 
*FX 15, 1 

IF INKEY(-194> THEN T=T+4 : 

IF T>100 THEN T=100 

IF INKEY(-179> THEN T=T-4 : 

IF T<0 THEN T=0 

IF T>F THEN T=F 

ENDPROC 

DEF PROCLOST 



Y-16 
Y-16 



FDR 1=1 TO 20 

VDU 31, RND (19), RND (31), 42 
NEXT 

PRINT TAB (4, 16) "LOST IN SPP 

ENDPROC 

DEF PROCLANDED 

VDU 28,0,31, 11,0,12 

PRINT =■ "LANDED" 

PRINT ^ "AT VEL INT ( (V+Vl ) 

IF (V+VlXa THEN PRINT '"Sfi 

ELSE PRINT * "ALL DEAD" 

ENDPROC 



I I " 



»5)/10 



16 







Touchdown: Apple version 



15 HOME 
20 HBR- 

30 DEF FNR<X>=INT(RND(1>*X+1> 

40 GOSUB 250 

50 GOSUB 300 

AO C=3s GOSUB 390 

70 A= 1 : B=F : GOSUB 460 

BO A=2 : B=ABS ( V ) : GOSUB 460 

90 A=3:B=H: GOSUB 460 

100 A=4:B=T; GOSUB 460 

110 GOSUB S30 

120 Vl=V-T/20+G : F=F-T/10 
130 H1=H-<V+V1 ) /lO 
140 C=0: GOSUB 390 
150 IF HKO THEN 200 
160 H=H1:V=V1 
170 IF H<=100 THEN 60 
180 GOSUB 590 
190 GOTO 220 
200 H=0:C=3: GOSUB 390 
210 GOSUB 660 
END 

H=100:F=100:T=0 
V=5+FNR ( lO) 
G= (FNR<40) +40) /lOO 
RETURN 



220 
250 
260 
270 
280 



3O0 HCOLOR=3 
305 HPLOT 



O, 155 



3 1 
320 
330 
335 

337 
34u 
350 

360 
370 
390 
4t»0 
410 
420 

430 
435 
437 
440 
460 
470 
480 
490 
500 
510 
530 

540 

550 



TABt34) ; 
" FUEL ! " 



G="!G 



FOR X=0 TO 279 STEP 5 
HPLOT TO X, 159-FNR(10) 
NEXT 

FOR 1=1 TO 30 sHPLOT FNR(279), 

FNR(150) 

NEXT 

VTAB 21 J PRINT 
VTAB 21 s PRINT 
PRINT "VEL:" 
PRINT "HEIGHT:" 
RETURN 
HCOLOR=C 
Y= ( 100-H> *1 . 3 
HPLOT 140, Y TO 120,Y+10 
TO 120,Y+20 : 
TO 160,Y+20 
TO 160, Y+IO 
155,Y+20 TO 
125,Y+20 TO 



PRINT "THRUST:"; 



HPLOT 
HPLOT 
HPLOT 
HPLOT 
HPLOT 
RETURN 
VTAB (20+A) 



s HPLOT TO 140, Y 
160,Y+25 



120, Y+25 



HiAB a 



INVER5E 

PRINT SPC (B/<») ; 
NORMAL 

PRINT SPC(26-B/4); 
RETURN 

1*="" s IF PEEK <- 16384) >1 27 

THEN GET It 

IF I*="A" THEN T=T+4 s 

IF T>100 THEN T=100 

IF I*="D" THEN T=T-4 : 

IF T<0 THEN T=0 




590 HOME : VTAB 23 
600 PRINT "LOST IN SPACE! I 
640 RETURN 
660 HOME : VTAB 22 
670 PRINT "LANDED AT VEL 

INT( (V+Vl) »5) /lO 
680 IF <V+V1)<8 THEN 700 
690 PRINT "ALL DEAD" : RE 



! 1 




rruRN 

700 PRINT "SAFELY" : RETURN 



Adding to the programs 



Here are some ideas for additions 
you can make to the programs in 
this book or to your own programs. 
In most cases you won't be able to 
add these to a ZX8 1 with only 1 K as 
the games themselves fill almost all 
its memory space, but you should 
find there is plenty of room on the 
other computers. 

Remember you will either have to 
restrict your adcUtions to the spare 
line numbers in a program or 
renumber the program. If you 
decide to renumber, take care you 
change all the GOTO and GOSUB 
lines too. 

■ 

Getting the com puter to tell you 
how to play 

You can add a 
section to any 
program to make 
the computer print 
instructions telling 

you what to do. The 
easiest way to do 

this is to add some lines, such as those 
below, at the beginning of the 
program and then put a sub -routine at 
the end. 



10 PRINT "TITLE OF GAME" 

11 PRINT "DO YOU WANT TO 

12 PRINT "KNOW HOW TO PLAY?" 
IS INPUT !♦ 

SZX17 IF I*(1)-"Y" THFN GOSUB lOOO 

117 IF LEFT*<I*,1)=*'V" THEN BOSUB lOOO 



Making the computer 
stop and wait for you 




If your instnictions are very long, you 
may want to insert this sub-routine 
which stops the program running at a 
particular point until you press a key. 
This way you can stop the instructions 
scrolling off the top of the screen 
before you have read them. Put a 
GOSUB line at the place you want the 
program to stop and then put this sub- 
routine at the end. 

lOOO PRINT "PRESS A KEY TO CONTINUE " f 
SZXIOIO IF INKEV*="" THEN BOTQ lOlO 




•1010 GET I« 

AlOiO GET It 

1020 PRINT 
1030 RETURN 



It H 



TI-EN GOTO lOlO 



Making the computer "talk" to 
you 




II 
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main program goes here 

lOOO F^INT "WHAT YOU HAVE TO" 
lOlO PRINT "DO IS. * 
1999 RETURN 

You can add as many print statements 
as you like for the instructions, just 
remember to put a number and the 
word PRINT at the beginning of each-Ai 
one. Restrict the length of the part 
inside the quotation marks to the 
number of characters your computer 
can print on one line. Don't forget to 
put a RETURN line at the end or the 
program won't work. 



You can make the computer ask you 
questions and react to your answers. 
For instance, here is an addition which 
will make the computer refuse to play 
with you unless your name begins with J, 

1 PRINT "WHAT IS YOUR NAME?" 

2 INPUT I« 

3 IF I*(1)<>"J" THEN GOTO lOOO 

3 IF LEFT»U», 1»<>"J" THEN SOTQ 1000 

4 PRINT "□K-vbU ClW PLAY." 

5 PRINT "ARE YOU READY?" 

6 INPUT J* 
IF J»(1)<>"Y" THEN QOTO 5 

7 IF LEFT»CJ*, i><>"Y" THEN GOTO 5 

main program here 



lOOO PRINT 

1010 PRINT 
1020 PRINT 
1O30 PRINT 



ifl 



"SORRY THIS 

ONLY FOR PEOPLE 
WHOSE hiAMES BEGIN 
"WITH J" 



ti 



Here is another one where the 
computer dares you to be brave 
enough to play. . . 

lO PRINT "WERY SCARE Y 6AliE" 
12 PRINT -mm YOU BRAVE ENOUGH" 
14 PRINT "TO TACKLE THE GREEN" 
.15 PRINT "HAIRY MONSTER?" 
. 16 INPUT X« 
S ZX17 IF I*<1>="Y" THEN GOTO 20 
^■A9l ' I! LEFT« ( It, n ="Y" THEN GOTO 20 

18 PRINT "COWARD" 

19 STOP 



cases you can add a single line to your 
program at the place you want the 
sound. In others, you need several 
lines and it is best to put these in as a 
sub-routine. 

As an example, here is the sound of 
a shot for the BBC. You can experiment 
with where to put it in the program, but 
you must give it a line number to make 
it work: 

BOUND 0,-15, 5, lO 

At the back of the VIC manual you 
will find some useful sub-routines for 
sounds such as '-laser beam", 
"explosion" and "red alert". Put a 
GOSUB line where you want the sound 
to appear, number the sub-routine and 
add a RETURN at the end of it. 



You could combine this with the 
instruction sub-routine by taking Unes 
11 to 1 7 from the instructions section 
on this page and putting thena at lines 
20 to 26 of this program. You can then 
start the main program at line 30 and 
add the inj^i^i^oii sub-routine at the 
end. 



Would you like another go? 

Instead of typing RUN each time you 
play a game, you can make the 
computer ask you if you'd like another 
go. Put these hnes at the end of the 

program, just before the last STOP 
statement. 



lOOO PRINT "DO YOU WANT ANOTHER 
lOlO INPUT I* 
S ZX 1020 IF I« ( 1 ) = " Y " THEN RUN 
^k«A«1020 IF LEFT*<I«, 1 THet RUN 

1030 PRINT "OK THEN - BYE" 
1040 STOP 




Change line 
numbeis accoirding 
to your piogzam. 



Adding sound effects 



The BBC, VIC 20, ZX Spectrum and 
some Apples are able to produce 
sounds and you can add lines to your 
programs to make them do so at 
appropriate places. You could add an 
explosion for instance, or a little tune 
which plays if you win. All the 
computers need different instructions 
to make sounds though, so you will 

have to kx>k at your imnual. In some 




Special note for BBC and 
Spectrum users ^ 

If you have a BBC or a ZX Spectrum 
you may find that some of the games 
in this book run too fast for you. You 
will find a box next to these games 
containing ii^tructions for 
cham^ig the speed. R^xiember, to 
slow the game up you always j^eed 
to use a higher number. Later 
models of the BBC may run up to 
twice as fast as the earlier models, 
ffiEid this could make the games 
appear impossible on the first run. 
Be prepared to make big changes 
to the speed number to correct this. 
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Writing your own programs 

As you woxk through the games in 
the book, you will probably find 
yourself making more and more 
dianges to them and eventually 
wanting to write new games of your 
own. On these two pages you will 
find some hints on how to set about 
doing this. 

Before you start, it is a good idea to 
stop and think about what your 
computer can and cannot do. 




It can ask you for information, 




It can store information 




*It can select numbers at random by 
using RND. 




*It can do calculations. 



*It cannot do anything unless you tell it 
to. 



* It can make decisions by comparing 
items of information in various ways. 





*It can tell you the results of its 
calculations and decisions and eilso 
what is stored in its memory. 



* Provided you use its language 
correctly, it can do only exactly v/hat 
you tell it, even if it is silly. 

Remember, when you are trying to 
work out a game , not to include - 
anything which your computer won't 
be able to do: 



Planning a game 

Before you can teli the computer how' 
to play your game, you must know 
exactly how to play it and what the 
rules are yourself. The computer will 
' need a series of simple logical 
instructions, so work out your game in 
your head or on paper first and then 
break it down into simple steps. 

Next write a plan (in English - don't 
try to use BASIC yet) of all the stages of 
the game in order. 

Here is a plan for a simple shooting 
game, such as firing cannon balls at a 
pirate ship or shooting laser beams at 
an alien invader, to give you an idea. 





PLAN 

j) flR/NT TITLE AND 
INSTRUCTIONS 

2) CHOOSE A TARCBT 
FOR THIS CxAtAE 

5)8S<Ht4 A LOOP TO 
CilVS THE PLAY£R 

N 

4-) C,ET A SHOT FROM 
THE PLAYER 

5) CHEC^ IF SHOT JVAS 

ON TARGET 

6) PRINT M£5SA<E 
DBPENPINC ON 
ACCURACY OF SHOT 

l) <yO 64CK FOR 

AiV0TW6R CJO \F SHOT 

iV/JS UNSUCCESSFUL > 



Writing the program . 

If 

The next stage is to-convert your plan 
into BASIC. Each step in your plan may 
need several lines in BASIC. Don't 
forget to leave gaps when numbering 
your program lines so you can go back 
and add extra ones if you need to. 

Do a first draft of the program on 
paper first and then start testing on the 
computer. Your computer will spot 
errors much more quickly than you 
will see them yourself and may give 
you a clue as to what is wrong. 
Remember that debugging programs 
is a long, tedious process even for 
expert programmers, so don't expect 
to get yours right first time. 




Once youhavp got the core of the 
program working, you can add to it. 
Scoring, extra comments, more 
targets etc. can all beaicorpc»rated 
later. You could add sections ^roisitl^ 
programs in this book to your games. 

Don't expect to be able to write 
exciting and original games straight 
away. Keep your ideas very simple 
and be prepared to adapt them as you 
go along. You may find you have 
included something in your game 
which is easy for humans to do but 
very difficult for a computer. As you 
get more experienced you will begin 
to know instinctively what your 
comptRer can do and find it easier to 
write programs for it. 



Summary of BASIC 



This section lists some common BASIC words and deschbes what they 
make the computer do and how they axe used. Most of them have been used 
in tlM programs in this book, so y ou can check back through the book to see 
how they work in a game. Not all the words can be used on aUthe 
computoCT w wtitiono d in this book. The conversion chart on page 46 shows 
what ymi can use instead. 



LET tells the computer to label a section of its 
memory and put a particular value in it e.g. LET 
A =6 means label a section of memory "A" and put 
the value 6 in it. "A" is called a "variable" and putting 
sojnething in it is called "assigning a value to a 
variable". 

Some variable labels are followed by a dollar 
sign e.g. A$. This means they are for "strings", 
which can contain any number of characters, 
including letters, nimibers and symbols. 





PRINT tells the computer to display things on the 
screen and you can use it in severed ways: 

A message enclosed in quotation marks with 
PRINT in front of it will be displayed on the screen 
exactly as you typed it. The section inside quotes 
does not have to be in BASIC, it can be anything you 
like. 

PRINT foUowed by a variable label e.g. PRINT A 
or PRINT A$ tells the computer to display the 
contents of that variable on the screen. 

PRINT can also do calculations and then display 
the results e.g. PRINT 6*4*will make the computer 
display 24. 

You can use PRINT by itself to leave an empty 
line. 




RND tells the computer to choose a number at 
random. Different computers use different forms of 
RND and you cam see what these are in the 
conversion chart on page 46. On Sinclair computers 
D by itself produces a number between and 
.99999999. You can vary the limits of the number it 
chooses by multiplying RND and adding to it. E.g. 
RND * 20 produces a number between and 
19.99999999, while RND* 204- 1 produces a number 
between 1 and 20.99999999. 
See INT for how to produce only whole numbers. 
See CHR$ for how to produce letters and other 
keyboard characters at random. 



INT is short for integer, which means whole 
number. For positive numbers, it tells the computer 
to ignore everything to the right of the decimal 
point. E.g. INT( 20.999) is 20. For negative numbers, 
it ignores everything to the right of the decimal 
point and "increases" the number to the left of it by 
onee.g. INT(-3.6) is -4. 

INT is often used with RND, like this: 
INT(RND* 20+ 1) which tells the computer you want 
it to choose a whole number between I and 20. 



CHR$ converts numbers into letters. Apart from the 
ZX81, all the computers in this book use the 
ASCII* set of keyboard characters in which each 
character corresponds to a certain number. E.g. 
letter A has the code number 65 and PRINT 
CHR$(65) will display an A on the screen. 

You can use CHR$ with INT and RND to make the 
computer select random letters, hke this: 

CHR$(INT(RND*26+65)) 
This line will produce random letters on aZX 
Spectrum (see conversion chart for other 
computers). 





FOR is used to start a "loop" which will make the 
computer repeat part of a program a certain 
number of times. It must be followed by a variable 
(such as G to stand for the number of goes allowed 
in a game), and the variable must be given start and 
end values (such as 1 TO 10.) 

The end of the loop is marked by a NEXT line 
(NEXT G in this example) which increases the value 
of the variable by 1 each time and then sends the 
computer back to the FOR line again. When the 
variable reaches its end value, the computer 
ignores the NEXT line and carries on to the line * 
which follows it. Every FOR must have a NEXT or 
you will get a bug. 




INPUT labels a space in the computer's memory, 
prints a question mark and then waits for you to 
type something which it can put in this memory 
space. It will not carry on with the rest of the 
program until you press RETURN, ENTER or 
NEWLINE. 

You can use number or string variables with 
INPUT, but if you use a number variable the 
computer will not accept letters from you. 

* American Standard Code for Information Interchange (see page 45) 




INKEY$ checks the keyboard to see if a key is 
being pressed and if so which one. It does not wait 
for you to press a key like INPUT does. It is usually 
used in a loop which makes the computer go round 
checking the keyboard lots of times. This is 
because computers work so quickly, you wouldn't 
have a chance of pressing a key in the time it takes 
the computer to do one check. 

If you haven't pressed a key before the loop 
finishes, the computer carries on with a string 
containing nothing (called a "null" string). 
NB Apple and VIC do not use INKE Y$. 



GET is used instead of INKE Y$ on VIC and Pet 
computers. 



GOTO makes the computer jump up or down the 
program ignoring the lines in between. You must 
put the number of the line you want it to jump to 
after the GOTO instruction. 



GOSUB tells the computer to leave the main 
program and go to a sub-routine. GOSUB must be 
folowed by the number of the first line of the sub- 
routine. At the end of the sub-routine you must have 
a RETURN line. This sends the computer back to 
the main program to the line immediately following 
the GOSUB line. A GOSUB without a RETURN in a 
program will give a bug. 



IF . . . THEN tells the computer to decide if an 
expression is true or false, and do different things 
depending on the answer. It is used with the 
following signs, and also with AND or OR: 

=the same as 

<less than 

> greater than 
<=lessthanorthesameas 
> = greater than or th'e same as 
< >not the same as 

If the computer decides an expression is true, it 
carries on to do the instruction which follows ■ 
THEN. If it decides it is false, it ignores the rest of 
that line and goes on to the next one. 



CLS is used to clear everything off the screen 
without removing or changing anything in the 
memory. It is useful for removing the listing from 
the screen at the beginning of a RUN or in games 
when you want the player to react to something 
seen for a limited amount of time. (NB Apple and 
VIC do not use CLS - see conversion chart). 



HOME is used by Apple computers instead of CLS 
to clear the screen. 




ABS ignores plus and minus signs in front of 
numbers and takes their "absolute" values. E.g. 
AES( - 10) is 10 and ABS( + 10) is also 10. 



VAL takes the numeric value of numbers written as 
strings. In effect, it tells the computer to ignore the 
dollar sign and treat the string as an ordinary 
number variable. E.g. if I$="60" then VAL(I$) is the 
number 60. 



ASC converts a character into its ASCII code 
number e.g. ASC("3") gives 51. The expression in 
brackets must be a string e.g. ASC( A$) or 
ASC("20"). 

NB ZX8 1 and ZX Spectrum do not use ASC, though 
the Spectrum does use the ASCII code. 



CODE is used by ZX8 1 and Spectrum in place of 
ASC. Like ASC it must always be followed by a 
string. Remember that the ZX8 1 uses different code 
numbers from the other computers. 



TAB moves the cursor across the screen to a 
specified column number. It is usually used with 
PRINT to display something in the middle of the 
screen. The number of spaces you want the cursor 
moved is put in brackets after TAB. The maximum 
number you can use depends on the screen width 
of your computer. 



SGN tells the computer to find out the sign of a 
number. It produces - Ifor a negative number, 
for zero and + 1 for positive numbers. E.g. 
SGN(-30) is - i, SGN(7) is + 1 and SGN(O) is 0. 

DIM tells the computer how much memory space 
will be needed for an "array" (a row or a grid). E.g. 
DIM X(6) tells the computer to set aside an area 
large enough to contain a row of 6 elements and 
labelled X. DIM A(8,8) means a memory space 
labelled A and big enough to take 8 elements 
across and 8 down is needed. The number of 
elements of data used in the program must 
correspond to the numbers in brackets after DIM 
or you will get a bug. 

SQR takes square roots of numbers. E.g. SQRC 16) 
gives the answer 4. 

SIN calculates the sine of an angle. In a nght-anglec 
triangle the length of the side opposite an angle, 
divided by the le ngth of the hypotenuse (the side 
opposite the right angle) is the sine of that angle. 
When you use SIN in a program, the angle you are 
using It with must be measured in radians, not 
degrees. 

ATN is one of the trig, functions which computers 
can calculate (see also SIN above). It stands for 
arctangent and it is important to remember that it 
gives an answer in radians, not degrees. You will 
need to use a maths book to find out how this works 
if you do not aiready know about it. 

STOP tells the computer not to go any further in a 
program. Computers other than the ZX81 can use 
END instead. 

PEEK is a way of finding out what is in a specific 
area of the computer's memory. You need to use it 
with a number which jspecifies an "address" in the 
memory, 

NB not used on BBC. 

-4 

POKE is a special way of putting information in the 
computer's memory by using a memory "addre^". 
NB not used on BBC. 



ASCII chart 



ZX81 code chart 



Code 


ASCII 


Code 


ASCII 


number 


character 


number 


character 




space 


c o 

62 


> 


66 




63 


■ 


OA 


f9 


64 


((/ ' 


35 


-LL 

# 


65 




36 




66 


B 


3/ 


0/ 
TO 


67 


C 


3o 


& 


A 

68 


D 


3y 


I 


69 


£ 


40 


( 


T A 

70 


F 


41 


) 


71 


G 


42 


1 ' 


72 


H 


43 


1 

+ 


TO 

73 


r 
1 


44 




74 


J 


A C 

45 




75 


K 


4b 


■ 


76 


T 

L 


A "7 
4/ 


/ 


77 


M 


4o 





78 


N 


AQ 

4y 


1 
1 


T A 

79 


O 


C A 

50 


o 


n A 

80 


P 


51 


o 

3 


81 





CO 

5^ 


A 

4 


A 1 

82 


R 


53 


5 


A 

83 


S 


SI A 

54 


6 


A A 

84 


T 


55 


7 


85 


u 


56 


8 


86 


V 




n 


A ^7 

87 


w 


58 


■ 


88 


X 


59 


■ 

1 


89 


Y 


60 




90 


Z 


61 









Chart of screen sizes 



Code 


ZX81 


Code 


ZX81 


number 


character 


number 


character 


11 


I) 


A 1 

41 


D 


12 


£ 


42 


E 


1 O 

13 


$ 


A 

43 


F 


1 A 

14 


■ 

■ 


j| A 

44 


G 


15 


m 


45 


H 


16 


( 


A 

46 


w 

I 


1 7 


) 


47 


I 


lo 


> 


A O 

48 


K 


1 A 

19 


< 


A A 

49 


L 


OA 

20 




P A 

50 


M 


21 


1 

+ 


51 


N 


OO 

22 




52 


O 


O T 




53 


P 


o ^ 

24 


1 


54 


_Q ! 


25 


■ 

5 


55 


R 


oc 

2b 




56 


S 


OT 

2/ 


■ 


C T 

57 


m 

T 


OO 

28 


A 




C A 

58 


u 


on 

29 


1 


P A 

59 


V 


30 


2 


60 


V V V 

w 


31 


3 


61 


X 


O O 

32 


4 


62 


Y 


O O 

33 


5 


63 


Z 


34 


6 






35 


7 






Jb 


o 
O 






37 


9 






38 


A 






39 


B 






40 


C 









Max. number of 

characters across 

(or number of columns) 


Max. number of 

lines down 

(or number of rows) 


VIC 20 1 


22 1 


23 


TRS-80 


64 


16 


BBC 


20/40/80 

1 ^ 


16/24/32 


ZX81 


32 


22 


ZX Spectrum 


32 


22 


Apple 


40 


25 



a & 





a 



3 

CO 



Et3 



CO 



-3 
O 

to 



> 



-3 
O 

CO 



n HI 

n ST 
o 

01 



I 

I 



2.^ 

3» 



3 



o 

-3 



O 



2 

o 



"-3 



2 



3 

O 

n 



o 

N 

sr 



o 



CO 
CO 



O 

DO 



tn 

2 




Q 

3 



o 



CO 



Id 

s 



o 
ad 

CD 







o 

PC 
oo 



O 



cn 



o 

00 



t^:> 

4^ 



O 



O 

M 

00 



O 

£15 



*T3 



13 

O 



O 



5g 



3 

o 



CO 

as 



H 

O 



GO 



Id 



Q 



GO 

s& o 
o d 
n <3 
o ^ 

• o 



5" n 

X 



a 
o 
a 



c 

O 



n 
o 

j w 



CD 
CD 
00 



s 



o 

5:^ 



CO 



O 



CO 



S3 

o 

o 

o 



5 § 

<Q ^ 

>>< 

Q 

n 
o 
a 



no 
n 

o 
o 
a 
19 



w O 

s a 

CI cri 

» — * ^ 

o 

a 



<& CP ^ 
P* 



T 



O 



CO hd II 

"-3 tn 

Q CD 




(p JL 

N A 



o 

C/3 



*T3 

o 



O 



o 

m 



O 



O 




O 



+ 



O 



a: 




o 



CO 



+ 



CD 




00 
DO 

O 



< 

o 



■0 



> 
■o 



I 

00 



N 

X 

■o 

c 
i 



N 

X 

00 



^ til ^ ^* 

^ FA O C0 



You can use any numbers 
you like for A and D 
provided they will fit 
on your screen. 




Answers 

You may find that your answers to Here are the changes to make the 

some of the puzzles are different to bugs appear in 5 places; 
the ones given here. As long as they let ft-int fRND»s*i ) 

work on your computer then this 

doesn't really matter, but check to .1 ^i^^ 22o^2o»r 

' I . . , -kBA^O ON R GOSUB 240.260.280,300,320 

see u they are as neat and simple as 
the answers in the book. 

Page 5 

Starship Takeoff 

Lines 30 and 40 select the nun±>ers 
which determine what the force will 
be. To increase the range of possible 
forces, you can increase either the 20 
in line 30, or the 40 in line 40, or both of 
these numbers. Increasing the range 
of forces will obviously make the 
game more difficult. 

Page? 

interg a lactic Games 

Change lines 222 and 230 as follows: 

222 LET B=B+INT < 1000/G) 
230 BOTQ 20 

and add a new line 15: 

15 LET B=0 

Pages 
Evil Alien 

Change lines 20 and 30 and add a new 
line 25 as follows; 

20 PRINT "HOW DIFFICULT? ih TO 30> " 
25 INPUT S 
30 LET e=INTtS/3) 

Page 1 1 

Beat the Bug Eyes 

To make the bugs appear in more than 
four places on the screen, you need to 
put a higher number than 4 in the 
middle of line 70, change line 80 and 
add more sub- routines at the end of 
the program - one for each extra 
position. 



240 LET D=5 
245 LET fl=l 
250 GOTO 350 
2&0 LET D-1 
265 LET A=9 
270 GOTO 3SO 
280 LET D«-S 
285 LET A=18 
290 GOTO 350 
3O0 LET D«10 
305 LET A«7 
310 GOTO 350 
320 LET D=iS 
325 LET A- 15 
330 GOTO 350 



To add more bugs, change the 10 in 
lines 30 and 220 to a higher number. 
(Make sure you use the same number 
for both lines.) 

Page 13 
Moonlander 

To increase the speed allowed for a 
safe landing, you need to make 
changes to Unes 230, 240 and 250. You 
can use any numbers you like - the 
higher they are the easier the game 
will be. In this example, you are 
allowed a speed of 2 for a good 
landing and 7 for an OK landing: 

230 IF VI >7 THEN PRINT "YOU CRASHED 

- ALL DEAD" 
240 IF Vi>2 AND Vl<»7 THEN PRINT "OK 

-BUT SOME INJUR I ES- 
250 IF Vl<=2 THEN PRINT "GOOD LANDING" 



Page 15 

Monsters of Galacticon 

Four ways of making this game harder 

are: 

1 Start the game with less people in 
the group by putting a smaller number 
than 5 in line 40. 

2 Increase the number of monsters by 
changing the 4 in lines 20 and 30. Add 



extra monster names at lines 81 to 89 
using M$(5) and M$(6). 

3 Reduce the number of goes allowed 
by altering the 8 in line 160. 

4 Incxease the chance of the monster 
being angered in line 330 by 
increasing .4 a little. 

Page 17 
Alien Snipers 

In this game, N is the code number. To 
change the sccaingtc fit the code 
number you need to increase the 
score by N each time instead of 1. So, 
change line 1 90 as follows: 

SZX190 IF I^OIFM(C00E(L«>-»-N) THEN 

LET S=S+N 

^■a#190 if i«=chr« (asc(l«) +n) then 

LET 

Page 19 
Asteroid Belt 

You need to change line 260 so that the 
computer adds the number of stars to 
your score instead of 1. The number of 
stars is controlled by the value chosen 
for N in line 70, so, as in the puzzle 
above, you need to add N to the score. 
You also need to change line 320. 

260 LET S«8+N 

320 PRINT "VOU SCORED "iS}" POINTS" 

Page 21 

Trip into the Future 

1 To increase the range of yeou:s 
which must elapse before you return 
to Earth, change the 100 in line 30 to a 
higher number, e.g. 1 50, like this: 

30 LET T-INT (RND»150+25) 

2 To increase the accuracy from 5 to 2 
years, change the Ss in lines 180 and 
190 to 2, like this: 

180 IF AB8(T~T2)<s2 THei PftlMT "VOU 

ARRIVED DN TIME"" 
190 IF AeS<T-T2)>2 THEN PRINT "NOT 
48 EVEN CLOSE" 



3 Line 170 contains the number which 
determines the length of your Ufetime. 
Change the 50 to a higher number for a 
longer Ufetime. 

Page 23 
Death Valley 

You can make the valley longer by 
changing the number in line 30 to 
something higher than 200. 

Page 25 
Space Mines 

Add these lines to make the computer 
ask if you would like ai^ther game: 

M!S PniHT **ANOT^£R GAME? (TYPE V C« N> " 

646 INPUT A« 

647 IF A**"Y" THEH 60T0 lO 

You must then a new line at 5 and 
change hne 30 to add the mcniey you 
ended up with at the end of the game 
to the money allowed for the new 

game; 

S LET H«0 

30 LET M=M+INT(RND»50+10»*P 

(BAake sure you use the correct 
version of RND for your computer.) 
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Usborne Computer Programs 



MW books contains 14 simple games pzogxams to 
Iilay OB a niciooampviter.* JUengside tte psogiwM tlMM an 
explanations of how thoy work and pwyylos and snggostioBs te mrays oi 
changing them. Thzough playing these games even c^^mplfttft begbuezs 

vriU iiirickly begin to imderstand how a simple program woiks and be 
itching to write their own. There are tips and hints on writing programs 
and a aammary of BASIC at the back of each book and also a chart which 

wiU kelp yo« ooBTStt prognna Ib MgaiiMS aad othev books to vrork on 
yourmido. 

*Theprogram» in these books are suitable for ase OB the following 
micros: ZX81, BBC, TRS-80, VIC 20, Pet, Apples which use PalsoftBASIC 
and ZX Spectrum. 
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conpnter. 
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